home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / arexx / rxasl / install < prev    next >
Encoding:
Text File  |  1999-05-17  |  1.6 KB  |  84 lines
  1. ; $VER: InstallRxAsl
  2.  
  3. (procedure choose
  4.  (set what
  5.   (askoptions
  6.    (prompt "What do you want to install?"
  7.     (help "Choose what you want to install")
  8.     (choices "rxasl.library" "guide" "examples")
  9.    )
  10.   )
  11.  )
  12. )
  13.  
  14. (procedure selGuideDest
  15.  (set #installGuideDir
  16.   (askdir
  17.    (prompt "Select the directory where you want to "
  18.     "install rxasl.library guide")
  19.     (help "This will install the guide")
  20.    (default "Ram Disk:")
  21.   )
  22.  )
  23. )
  24.  
  25. (procedure selExDest
  26.  (set #installExDir
  27.   (askdir
  28.    (prompt "Select the directory where you want to "
  29.     "install rxasl.library examples")
  30.     (help "This will install the examples")
  31.    (default "Ram Disk:")
  32.   )
  33.  )
  34. )
  35.  
  36. (procedure copy-lib
  37.  (copylib
  38.   (prompt "Installing rxasl.library to LIBS:" )
  39.   (help "This will copy rxasl.library to LIBS:")
  40.   (source (tackon #source-dir "LIBS/rxasl.library"))
  41.   (dest @default-dest)
  42.   (confirm)
  43.   (optional "askuser" "force")
  44.  )
  45. )
  46.  
  47. (procedure copy-guide
  48.  (selGuideDest)
  49.  (copyfiles
  50.   (source (tackon #source-dir "DOCS/english/"))
  51.   (dest #installGuideDir)
  52.   (optional force)
  53.   (all)
  54.  )
  55. )
  56.  
  57. (procedure copy-ex
  58.  (selExDest)
  59.  (copyfiles
  60.   (source (tackon #source-dir "examples"))
  61.   (dest #installExDir)
  62.   (optional force)
  63.   (all)
  64.  )
  65. )
  66.  
  67. (welcome "Welcome to the rxasl.library installation.\n")
  68.  
  69. (set @app-name "rxasl.library")
  70. (set @default-dest "LIBS:")
  71. (set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
  72.  (expandpath @icon))
  73. )
  74.  
  75. (complete 0)
  76. (choose)
  77. (if (= 0 what) (exit))
  78. (if (BITAND what 1) (copy-lib))
  79. (complete 33)
  80. (if (BITAND what 2) (copy-guide))
  81. (complete 50)
  82. (if (BITAND what 4) (copy-ex))
  83. (complete 100)
  84.